dim doc
set doc = Application.ActiveDocument
dim xMin,yMin,xMax, yMax
xMin = doc.ActiveView.TopLeftX
yMin = doc.ActiveView.BottomRightY 
xMax =doc.ActiveView.BottomRightX
yMax = doc.ActiveView.TopLeftY

dim ws : set ws = CreateObject("WScript.Shell")
dim varName,regPath
varName = "View_minX"
regPath ="HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName
ws.RegWrite "HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName, xMin, "REG_EXPAND_SZ"
varName = "View_minY"
regPath ="HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName
ws.RegWrite "HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName, yMin, "REG_EXPAND_SZ"
varName = "View_maxX"
regPath ="HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName
ws.RegWrite "HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName, xMax, "REG_EXPAND_SZ"
varName = "View_maxY"
regPath ="HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName
ws.RegWrite "HKEY_CURRENT_USER\Software\MyApp\PADS\" & varName, yMax, "REG_EXPAND_SZ"
set ws = nothing
msgbox "done!"

